home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctjja86.arc / STATEC.ARC / AUTO7.C < prev    next >
Text File  |  1985-08-14  |  292b  |  23 lines
  1. /* auto7.c - fibernacci benchmark function */
  2. #include "stdio.h"
  3. #define ORDER 15
  4. #define NIT   20
  5.  
  6. dofib()
  7.  {
  8.      int i ;
  9.     
  10.     for(i=0 ; i< NIT ; i++)
  11.         { fib(ORDER) ; }
  12.  }
  13.  
  14.  
  15. int fib(n)
  16.  int n ;
  17.  {
  18.      if( n > 2 )
  19.          return( fib(n-1) + fib(n-2) ) ;
  20.      else return( 1 ) ;
  21.  }
  22.  
  23.